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PREFACE 


This document is a change notice to the BASIC/RT-1l Language Reference 
Manual (DEC-11-LBACA-D-D). Appendix H was omitted from the manual and 
is included in this change notice. Pages 5-27, 7-3, 8-8, 8-17, 9-3, E-3, 
F-2, F-5, I-6, J-2, and J-3 contained technical errors which have been 


fixed in this notice. 


All changes are marked by bars in the outer margin and the date of the 
change in the lower left hand corner. Any previous change bars on a 


revised page have been deleted. 
Insert APPENDIX H after APPENDIX G. The pages: 


5-27 
7-3/7-4 
8-7/8-8 
8-17 
9-3/9-4 
E-3/E-4 
F-1/F-2 
F-5 : 
I-5/I-6 
J-1/d-2 
J-3/5-4 


replace the equivalent pages in the BASIC/RT-11 Language Reference 


Manual. 
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The program in memory is now: 


10 DIM A(100) 

20 FOR I= 0 TO 100 

30 LET A(I) = SOR(TI) 

40 NEXT I 

50 DEF FNS(I) = SOR (A(I)) 
60 OPEN "LP:" AS FILE #1 
100 PRINT #1: “FIRST OVERLAY" 
110 FOR J = 1 TO 100 

120 PRINT #1: PNS (J), 

130 NEXT J 

140 sToP 

900 OVERLAY "OV1" 

910 GO TO 100 


Control now passes to statement 910, which is the first statement fol- 
lowing statement 900 in the merged program. 


Execution at statement 100 causes 
“FIRST OVERLAY" 


to be printed, followed by the fourth roots of the numbers from 0 to 
100. 


Finally, "STOP AT LINE 140" is output at the terminal. 


An overlay statement executed in the immediate mode (without a line 
number) will act like an OLD command, except that the program cur- 
rently in core is not scratched. Instead, the program lines in the 
specified file will be edited into the program, just as if they were 
typed in via the console. 


A very useful application of this feature is when the BASIC programmer 
has a "library" of GOSUB subroutines to edit into his program. The 
procedure is as follows. 


Type in the BASIC program as if there were subroutines at specific 
(high) statement numbers such as 1000, 2000, etc. Then SAVE the pro- 
gram. The next step is to resequence the required library routines 
using the BASIC program RESEQ (see Chapter 10) so that they begin at 
the correct statement numbers. Then read in the saved program again 
with the OLD command. Finally, edit in the subroutines with immediate 
mode OVERLAY statements such as 


OVERLAY "SUB1" 
OVERLAY "SUB2" 


Finally, a REPLACE command will update the saved program. 
NOTE 


Execution of the OVERLAY statement may 
cause the data pointer to change. Any 
program employing both the OVERLAY and 
DATA statements should have a RESTORE 
statement executed after the OVERLAY 
statement. This will cause the data 
pointer to be at the start of the first 
DATA statement in the merged program. 
The OVERLAY statement changes the data 
pointer only in versions of BASIC/RT-11 
before version 1B. 
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7.2 OLD COMMAND 


The OLD command (OLD) erases the contents of the storage area (SCRATCH 
and CLEAR) and inputs the program via the specified device. 


The form of the command is: 
OLD "dev:filnam.ext" 


If the file descriptor (dev:filnam.ext) is not specified as part of the 
OLD command, BASIC prints: 


OLD FILE NAME-- 
and waits for the file description and the return key. Type the name 
of the file containing the BASIC program (do not enclose the filename 


in quotation marks). If a filename is not entered, BASIC assumes the 
name NONAME. 


In the examples of OLD commands that follow, the computer printout is 
underlined 


OLD 
OLD FILE NAME--TEST1 


clears user area and inputs program TEST1i.BAS from Disk (DK). 
OLD "DT1:PROGI" 
clears user area and inputs program PROG1.BAS from DECtape unit 1. 


OLD "PR:RESEQ" 
clears user area and inputs the program RESEQ from the high speed paper 
tape reader. 
7.3. LIST/LISTNH COMMANDS 
The LIST command prints the specified lines of the user program cur- 
rently in memory on the terminal. The program name, date and the 
BASIC version number are output as a header line for the lines being 
listed. The form of the LIST command is: 

LIST statement no.-statement no. 


Several variations of the LIST command can be used: 


LIST statement no. Lists only the specified line. 

LIST-statement no. Lists from the beginning of the pro- 
gram to and including the specified 
line. 


LIST statement no.- 
LIST statement no.-END Lists from the specified line to the 
end of the program. 
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LIST statement no.-statement no. 
Lists the specified section of the 
program. 


If no statement number is specified, the entire program is listed. If 
the statement number specified does not exist, the first line of the 
program is listed. 


Typing LIST followed by the statement number causes the header line 
and the line specified to be listed. The LISTNH command also prints 
the lines currently in core but suppresses the header line. 


Type CTRL/O (depress the CTRL key and type the O key) to suppress an 
undesired listing. BASIC returns to the READY message when command 
execution is complete. 

The lines listed may differ slightly from those entered because: 


1. Certain characters while acceptable to BASIC are stored in a 
standard manner when they appear outside of quotation marks. 


Character Character 
typed stored 

] ) 

[ ( 

=< <= 

=> >= 

>< <> 


2. Literals are stored to 24 bits of accuracy. Those with more 
than 24 bits are truncated to 24 bits. 


3. Although literal storage is 24 bits, output is truncated to 6 
decimal digits. 


4. Literals are output in standard BASIC format, regardless of 
how they were input, for example, 


10 LET X=3,0+1.0000001 
20 PRINT X-1E7 

LIST 

10 LET X=3+1 

20 PRINT X=-1.00000E+07 


5. Spaces in the input program are ignored, except within 
strings and REM statements. The LIST command prints the 
program with spaces inserted to separate keywords and line 
numbers from numeric information. The listed program is 
therefore easier to read. In the case of an IF...GO TO 
statement, no space is typed before the GO TO keyword. 


Examples: 


LISTNH 100 lists line 100. 


~J] 
I 
Ea 


8.4 SYSTEM ROUTINES IN BASIC 


The routines described below are all global symbols and are available 
to the user functions: 


Routine Name 


(Global) 


BOMB 


ERRPDL 


ERRSYN 


ERRARG 


EVAL 
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TRAP 0 
»ASCII 'MESSAGE' 
~ EVEN 


JMP ERRPDL 


JMP ERRSYN 


JMP ERRARG 


JSR PC, EVAL 


Description 


This routine stops execution of 
the BASIC program and types the 
message: 


PMESSAGE AT LINE XXxx 


If the $LONGER option is specified, 
the we character is omitted. 
BASIC then types the READY message. 


Called when the stack pointer (SP) 
goes below the value in R4, Causes 
execution to halt and types out 
PETC AT LINE xxxxx. There are 20 
extra “buffer" words on the’ stack. 
If the user routine will definitely 
not use more than this many words 
on the stack, the routine need not 
check for a stack overflow. 


Syntax error. Stops execution and 
prints out ?SYN AT LINE xxxxx. 


Argument error. Stops execution 
and prints out ?ARG AT LINE xxxxx,. 


Evaluate expression. Rl points to 
the start of the expression in the 
code. EVAL sets the carry bit as 
follows: 


carry = 0: The expression is 
numeric. 


The value of the expression is 
contained in the floating 
accumulator (FAC1 and FAC2). 

carry = 1: A string expression. 


If the string is non-null, the top 
of the stack is an indirect pointer 


to the string. (See section 8.6 
for the format of string 
variables.) 


If the string is null, the top of 
the stack is the value 177777. 


In both cases, Rl is moved to point 
to the byte following the 
expression in the code. If it 
detects an error in the expression, 
EVAL branches to the appropriate 
error routine. 
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Routine Name 
(Global) Call Description 


GETVAR JSR PC,GETVAR Address variable or array element. 
R2 must contain the address of the 
symbol table entry for the variable 
and R1 must point to the next byte 
beyond the second byte of the sym- 
bol table offset on call. GETVAR 
looks up and saves the address of 
the variable reference, so that a 
subsequent STOVAR or STOSVAR will 
store a value in the addressed vari- 
able. GETVAR destroys the FAC when 
addressing an array element; Rl is 
left unchanged unless the variable 
is subscripted, in which case Rl is 
advanced past the right parenthesis. 
To address the symbol table entry, 
precede the GETVAR call with the 
code: 


MOVB (RL)+,R2 ;FIRST BYTE OF 


;OF FSET 
BMI ESYN ;IF NEGATIVE, ERROR 
SWAB R2 
BISB (R1)+,R2 ;GET 2ND HALF OF 
;OF FSET 
ADD (R5) ,R2 ;ADD BASE OF SYMBOL 
7; TABLE 
MSG JSR R1,MSG Print message on console. Prints 
-ASCIZ 'MESSAGE' the ASCII characters specified after 
. EVEN the JSR instruction up to the O-byte. 


MSG prints only those characters 
specified in the calling sequence 
plus padding characters specific to 
the terminal in use. The calling 
program must insert a carriage re- 
turn where required. MSG clears 
the CTRL/O condition. 


STOVAR JSR PC,STOVAR Store numeric variable. Stores the 
FAC in the variable or array element 
last referenced by GETVAR. If it 
was a string variable, STOVAR stops 
execution of the program, and pro- 
duces the ?NSM error message. 


STOSVAR JSR PC,STOSVAR Store string variable. Stores the 
top of the stack in the variable or 
array element last referenced by 
GETVAR, and pops one word from the 
stack. If it was a numeric variable, 
STOSVAR stops execution of the pro- 
gram and produces the ?NSM error 
message. 


May, 1975 8-8 


The module defining the background routine should now be of the form 


-CSECT BKGMOD 
«GLOBL BKG 
BKG: ;START OF BACKGROUND ROUTINE 


RTS PC 
e END 
The BKGMOD object module should be linked with fFTBL, 


PERVEC, RTINT, 
the appropriate LPS and GT object modules, and the BASIC object 
modules. 
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Table 9-1 (Cont.) 
BASIC Error Messages 


Abbrevia- 
tion Message Explanation 








?NBF NEXT BEFORE FOR AT LINE xxxxx 
The NEXT statement corresponding to | 
a FOR statement precedes the FOR 





| 
| statement. 

?NER NOT ENOUGH ROOM There is not enough room on the se- 
lected device for the specified num- 
ber of output blocks. 

?NPR NO PROGRAM The RUN command has been specified, 
but no program has been typed in. 

?NSM NUMBERS AND STRINGS MIXED AT LINE xxxxx 
String and numeric variables may not. 
appear in the same expression, nor 
may they be set = to each other; for 
example, AS$=2. 

?00D OUT OF DATA AT LINE xxxxx 
The data list was exhausted and a 
READ requested additional data. 

?OVF OVERFLOW AT LINE xxxxx The result of a computation is too 
large for the computer to handle. 

?PTB PROGRAM TOO BIG The line just entered caused the 
program to exceed the user code area. 

?RBG RETURN BEFORE GOSUB AT LINE xxxxx 
A RETURN was encountered before exe- 
cution of a GOSUB statement. 

?RPL USE REPLACE File already exists. Use REPLACE 


command. 


SUBSCRIPT OUT OF BOUNDS AT LINE xxxxx 
The subscript computed is greater 
than 32,767 or is outside the bounds 
defined in the DIM statement. 


STRING STORAGE OVERFLOW AT LINE xxxxx : 
There is not enough core available to 
store all the strings used in the 
program. 


STRING TOO LONG AT LINE xxxxx 
The maximum length of a string ina 
BASIC statement is 255 characters. 


SYNTAX ERROR AT LINE xxxxx 
The program has encountered an unrec- 
ognizable statement. Common examples 
of syntax errors are misspelled com- 
mands and unmatched parentheses, and 
other typographical errors. 
(Continued on next page) 
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Table 9-1 (Cont.) 


BASIC Error Messages 


Abbrevia- 
tion Message Explanation 


?TLT LINE TOO LONG TO TRANSLATE 
Lines are translated as entered and the 
line just entered exceeds the area 
available for translation. 


UNDEFINED FUNCTION AT LINE xxxxx 
The function called was not defined by 
the program or was not loaded with 
BASIC, 


UNDEFINED LINE NUMBER AT LINE xxxxx 
The line number specified in an IF, GO 
TO or GOSUB statement does not exist 
anywhere in the program. 


WRITE LOCKOUT Tried to write on a sequential or 
virtual file opened for input only. 


+ ERROR AT LINE xxxxx 
The program tried to compute the value 
AtB, where A is less than 0 and B is not 
an integer. This produces a complex 
number which is not represented in 
BASIC, 





When the message ?DNR AT LINE xxxxx is printed because the device 
referenced is not on-line, turn the device on and issue a GO TO xxxxx 
statement. Execution of the program resumes at the line (xxxxx) 
specified. This message may also indicate that a program file does 
not contain any legal BASIC program lines. 


When the message ?00D AT LINE xxxxx is printed because the file 
referenced by an INPUT#1 statement is not ready, prepare the file and 
issue a GO TO statement to resume execution. 

Function Errors 

The following errors can occur when a function is called improperly. 

PARG The argument used is the wrong type. For 
example, the argument was numeric and the 
function expected a string expression. 

?SYN The wrong number of arguments was used in a 
function, or the wrong character was used to 
separate them. For example, PRINT SIN(X,Y) 
will produce a syntax error. 

In addition, the functions give the errors listed below. 

FNa(...) ?UFN The function a has not been defined (function 
cannot be defined by an immediate mode 
statement). 

RND or RND(X) No errors 


SIN (X) No errors 


9~ 


fa 







Abbrevia- 
tion Message Explanation 


OUT OF DATA AT LINE xxxxx 
The data list was exhausted and a READ 
requested additional data. 








?OVF 


OVERFLOW AT LINE xxxxx The result of a computation is too 
large for the computer to handle. 

?PTB PROGRAM TOO BIG The line just entered caused the pro- 
gram to exceed the user code area. 


RETURN BEFORE GOSUB AT LINE xxxxx 
A RETURN was encountered before execu- 


mand. 
?SOB SUBSCRIPT OUT OF BOUNDS AT LINE xxxxx 
The subscript computed is greater than 
32,767 or is outside the bounds defined 
in the DIM statement. 


STRING STORAGE OVERFLOW AT LINE xxxxx 
There is not enough core available to 
store all the strings used in the pro- 
gram. 


?SSO0 


STRING TOO LONG AT LINE xxxxx 
The maximum length of a string ina 
BASIC statement is 255 characters. 
?SYN SYNTAX ERROR AT LINE xxxxx 
The program has encountered an unrec- 
ognizable statement. Common examples 
e syntax errors are misspelled com- 
ands and unmatched parentheses, and 
Benes typographical errors. 


| 
| 
tion of a GOSUB statement. 
?RPL USE REPLACE File already exists. Use REPLACE com- 


LINE TOO LONG TO TRANSLATE 
Lines are translated as entered and the 
line just entered exceeds the area 
available for translation. 


UNDEFINED FUNCTION AT LINE xxxxx 
The function called was not defined by 
the program or was not loaded with 
BASIC. 


UNDEFINED LINE NUMBER AT LINE xxxxx 
The line number specified in an IF, GO 
TO or GOSUB statement does not exist 
anywhere in the program. 


WRITE LOCKOUT AT LINE xxxxx : 
Tried to open a read-only device for 
output, or tried to write on a sequen- 
tial or virtual file opened for input 
only. 
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Abbrevia- 


tion Message Explanation 
PtER +ERROR AT LINE xxxxx 


Function Errors 


The program tried to compute the value 
AtB, where A is less than 0 and B is not 
an integer. This produces a complex 
number which is not represented in 
BASIC, 


The following errors can occur when a function is called improperly. 


?ARG 


?SYN 


The argument used is the wrong type. For 
example, the argument was numeric and the 
function expected a string expression. 


The wrong number of arguments was used in a 
function, or the wrong character was used to 
separate them. For example, PRINT SIN(X,Y) 
produces a syntax error. 


In addition, the functions give the errors listed below. 


FNa(...) 


RND or RND(X) 
SIN (X) 
COS (X) 
SQR(X) 
ATN (X) 
EXP (X) 
LOG (X) 
ABS (X) 
INT (X) 
SGN (X) 


TAB ( X) 


LEN (A$) 
ASC (A$) 


CHR$ (X) 


?UFN 


?tER 


?ARG 


The function a has not been defined (function 
cannot be defined by an immediate mode 
statement). 

No errors 

No errors 

No errors 

X is negative 

No errors 

X is greater than 87 

X is negative or 0 

No errors 

No errors 


No errors 


X is not in the range 0<x<256 


No errors 
AS is not a string of length 1 


X is not in the range 0<x<256 


APPENDIX F 


ASSEMBLING AND LINKING BASIC 


F.1 ASSEMBLING BASIC/RTI11 


The source program of BASIC/RT11 consists of three source files: 
A 16K system is required to assembie BASIC, 


BASICL. MAC 
BASICH. MAC 
FPMP . MAC 


It is necessary to create the files BASICR, BASICE, and BASICX which 
consist of only one line of code each. They specify the conditionals 
necessary to assemble BASICL into the three object modules BASICR.OBJ, 
BASICE.OBJ and BASICX.OBJ. 


They are created using the EDIT program, as follows: 


© Represents the Altmode key 
-R EDIT ; 
*EWBASICR.MAC (§) G) 

* TBASICR=1 

© x @©® 


-R EDIT 
*EWBASICE.MAC (S) G) 
* IBASICE=1 

© Ex 


-R EDIT 
*EWBASICX.MAC () G) 
*IBASICX=1 

) EX 


If any other options are desired, include the conditionals for them 
in these files. For example: 


SNOSTR=1 7NO STRINGS 

SLONGER=1 7LONG ERROR MESSAGES 
SNOVF=1 ;NO VIRTUAL MEMORY FILES 
SNOPOW=1 7NO POWER-FAIL OPTION 
$STKSZ=n 7;PROGRAM STACK SIZE 


;IN BYTES (DEFAULT IS 
7200 (OCTAL) BYTES 


If BASIC is to run on an 8K system, the $NOSTR conditional must be 
specified. 


For example, to create a BASIC with no strings, no virtual memory files, 


and a stack size of 300 (octal) the BASICR, BASICE, and BASICX files 
should be created using the EDIT program, as follows 


.R EDIT 
*EWBASICR.MAC @© 
* TBASICR=1 
$NOSTR=1 

SNOVF=1 
$STKSZ=300 


© EX ©@ 


*EWBASICE -MAC ©) () 
1 


*TBASICE= 
SNOSTR=1 
SNOVF=1 


STKSZ=300 
Gx OO 


.R EDIT 
*EWBASICX.MAC ($) ($) 
*IBASICX=1 

SNOSTR=1 

SNOVF=1 


STKSZ=300 
OOO 
(s) represents the Altmode key. 


To assemble Basic, type the following as input to the MACRO Assembler: 


*BASICR=BASICR, BASICL 
*BASTCE=BASICE , BASICL 
* BASICX=BASICX , BASICL 
*BASICH=BASICH 
*FPMP=FPMP 


This produces the five object modules 


BASICR BASIC Root section 

BASICE BASIC Edit overlay 

BASICX BASIC EXecution overlay 

FPMP Floating Point Math Package 

BASICH BASIC High section, with once-only 


code and optional functions 


F.1.1 Floating Point Math Package 


Assembly of the FPMP source file produces a "standard" FPMP for BASIC, 
which runs on any PDP-1l, but will not make use of special arithmetic 

hardware. All of the routines needed for the full complement of BASIC 
arithmetic functions are included. A non-standard FPMP may be speci- 

fied, as outlined in the table below: 


FPMP Assembly Parameters 


Parameter Default Value Description 
MIN undefined Define to eliminate code for BASIC 


functions SIN, COS, SOR, and ATN. 
When linked, the functions are 
listed as “undefined references". 
However, when executed by a BASIC 
program, they produce a ?UFN 
(UNDEFINED FUNCTION) error. 
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To link BASIC with the user functions in a non-overlay system, type 
this command string to the Linker: 


*BASIC=BASICR,FPMP , BASICE , BASICX/B:409/C 
*FUN1,FUN2[,GETARG] , BASICH 


GETARG is the general argument interface module listed in Appendix H. 
In an overlay system, there are two possible ways in which to link 
BASIC with the user functions. 


If the user function routines contain no data which must be preserved 
from one function call to the next, that is, if the code for the 
routines may be refreshed at the beginning of each function call, then 
the routines may be incorporated into the execution overlay by using 
this LINK command string: 


*BASIC , BASIC=BASICR,FPMP , FUN1/T/B: 489/C 
TRANSFER ADDRESS = 

GO 

*BASICE/O:1/C 

*BASICX, FUN2[,GETARG] /0:1/C 

*BASICH/O:2 


In this case, the function routines (in the module FUN2) occupy space 
in the first overlay segment which is normally unused, since the Edit 
overlay segment (BASICE) is about 250 words longer in the 8K no-string 
system than the Execution overlay segment (BASICX). These first 256 
words of storage are "free" in this case. 


In the case where FUN2 may not be read in anew whenever it is used, 
type this command string to the Linker: 


*BASIC=BASICR,FPMP ,FUN1,FUN2/T/B: 462/ 
TRANSFER ADDRESS = . 
GO <7 = 

*BASICE/0O:1/C 

*BASICX[,GETARG] /0:1/C 

*BASICH/O:2 


There are three additional object modules (FPMP.FPU, FPMP.FAE, FPMP.EIS) 
which allow BASIC/RT11 to be linked for special arithmetic hardware. 


Processor Replace FPMP.OBJ With 
EAE hardware FPMP .EAE 

PDP-11/40 extended FPMP.EIS 

processor or PDP-11/45 

processor 

PDP-11/45 FPU FPMP .FPU 

hardware 
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APPENDIX H 


GETARG, STORE, SSTORE LISTING 


} GETARG, STORE, SSTORE : SUBROUTINES FOR 
} LINKAGE OF ASSEMBLER SUBROUTINES TO BASIC 
' 

eTITLE GETARG 29=AUG=73 

GLOBL GETARG, STORE 

«GLOBL EVAL, GETVAR, ERRARG, ERRSYN 

eGLOBL ,LPAR, ,CUMMA, ,RPAR, ,E0L 

»GLOBL STOVAR, .SGUOT, ,DQULOT 

eIFNOF «6 §NOSTH 

»GLOBL SSTORE, STCSVAR 

sENDC FSNOSTR 

CSECT GET 


, 
TSNOSTR & 1 POELETE *7* TO ASSEMBLE FOR 
H PBASIC WITH NO STRINGS 
RASke 
R12%1 
Ran%r 
R32%3 
RGaga 
R53%5 
SP2X%6 
PCs4%7 
NVAL&G 
eI FOF SNOSTR 
NVAL#S 
eENDC PSNQOSTR 
eTEXTS3T7 
FaACi{=4a 
FAC2s42 
VARSAVs2e 
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} SORE RST SSSASS SAS STH HSASHSASSSES Ss TTT SSA TSH BH HBR SPSS eevetaens 


} SUBROUTINE 


i 
3 
} 
! 
} 
' 
t 
; 
' 
' 
; 
I 
iu 
U 
} 
' 
' 
; 
} 
? 
; 
' 
; 
; 
} 
} 
; 
G 


GETi: 
GETe: 
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ETARGS mov 


MOVB 
BLE 
CMPi 
BNE 
BR 
CMP 
BNE 
CMP 
BHI 
4SL 
MOV 
MOV 
MOV 


1975 


(Rij+,%, COMMA 
GETERS 
R2,#NVaL 
GETERA 

Re 

RO,ROS 

R3,h35 
BRTAB=e2(R2),PC 


*"GETARG* CALLED BY MOV #TABLE,R® 
JSR PC,GETARG 
»BYTE NipN2peeer® 
eEVEN 
WHERE TABLE IS THE ADDRESS OF A 
TABLE TO HOLD THE ARG REFERENCES, 
Ni,N2,ETC, INDICATE THE ARG TYPES: 
t INPUT NUMERIC EXPRESSION, 2 
(THE EXPRESSION VALUE) ARE 
STORED IN TABLE, 
2 OUTPUT NUMERIC VARIABLE, 3 WORDS 
ARE STORED IN TABLE. 
STRING VERSION ONLY: 
3 INPUT STRING EXPRESSION. NO WORDS 
ARE STORED IN TABLE, THE STRING 
POINTER IS ON THE STACK, 
4 QUTPUT STRING VARIABLE, 3 WORDS 
ARE STORED IN TABLE, 
NO STRING VERSION: 
5 INPUT STRING LITERAL, 2 WORDS 
ARE STORED IN TABLE. WORD 1 CON@ 
TAINS THE START OF THE ASCII STRING, 
WORD 2@ CONTAINS THE LENGTH OF THE 
STRING IN BYTES, 
CHECKS THE SYNTAX OF THE CALLING 
STATEMENT AND FINDS THE REQUESTED 
ARGUMENT REFERENCES, STORING THEM 
CONSECUTIVELY IN TABLE, 
(SP) +,R3 7ADDR OF CALL IN R3 
(R3)+,R2 GET 18ST BYTE IN R2 
GETX pNOQ ARGS, EXIT 
(R1) +, #,LPAR ICHECK STARTING *(° 
GETERS NO, SYNTAX ERROR 
GET2 FENTER LOOP 


HCHECK ¢*,* BETWEEN ARGS 
;NO, SYNTAX ERROR 
+CHECK VALID BYTE 

PSAVE REGS 


PBRANCH TO ROUTINE 


} NUMERIC EXPRESSION 


NUMEXPs JSR PO,EVAL 
BCS GETERA 
MOV ROS, RA 
MOV FACi (RS), (RB)* 
MOY FaC2(R5),(R@)+ 
BR NXTARG 
f STRING EXPRESSION 
STREXPS 
eIFNDF SNQOSTR 
JSR PC, EVAL 
Bcc GETERA 
MoV R@S,R@ 
BR NXTARG 
eENDC SSNOSTR 
el FOF gNOsts 
MOVB (R1i}+,=(SP) 
CMPB (SP) ,#.SQU0T 
BEG STR1 
CMPB (SP),#,00U0T 
BNE GETERS 
STR1: CMPB (R1i)+,a8, TEXT 
ANE GETERS 
MOV ROS,R2 
MOV R1, (RA) + 
CLR R2 
STR2: TST (Ri)+ 
BEQ STR3 
INC Re 
BR STR2 
STR3: MOV R2,(RO)+ 
CMPB (SP)4, (Ri) + 
BNE GETERS 
BR NXTARG 
2ENDC PSNOSTR 
y NUMERIC TARGET VARTABLE 
NUMVAR: CLR = (SP) 
eIFNOF SNGSTR 
BR VARI 
es STRING TARGET VARTABLE 
STRVARS MOV R2,=(SP) 
eENGC pSNOSTR 
VARISE MOVe (Ri}+,Re 
BMI GETERS 
SWAB Re 
BISH (R1i}+,R2 
ADD (R5),Re 
JSR PC, GETVAR 
MOV Ras,R2 
MOV R5,k2 
ADO #VARSAV,R2 
MOV (R2),R3 
MOV (RA) 4, (RO)+ 
MOV (RE) +, (RA)+ 
MOV (R2),(RQ)+ 
TST (S5P)+ 
BNE VaR? 
CMP (R3),a=4 
BEG GETERA 
BR NXTARG 
VARe$ CMP (R3),#=1 
BNE GETERA 
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PEVALUATEL 
PSTRING IS BAD 
RESTORE TABLE POINTER 


PSAVE VALUE 


FEVALUATEL 
;NUMERIC IS BAD 
PRESTORE TABLE POINTER 


;LOOK FOR STRING LITERAL 
;CHECK QUOTE CHAR, 


PCHECK ,TEXT TOKEN NEXT 
FRESTORE TABLE POINTER 

}SAVE STRING ADDRESS IN TABLE 
FNOW FIND LENGTH 

fEND OF STRING IS BYTE 20 
PCOUNT 


PSAVE LENGTH IN TABLE 
PCHECK MATCHING CLOSE QUOTE 


PREMEMBER IT*S NUMERIC 


PREMEMBER IT°S STRING 


FGET SYMTAB REF IN R2 


PADDRESS VARTABLE 
PRESTORE TABLE POINTER 
PADDRESS VARSAV 


PSAVE A CoPyY 
PMOVE 3 WOROS INTO TABLE 
PSTRING OR NUM 


JNUMERIC, CHECK TYPE AGREES 


' GO TO NEXT ARGUMENT 
NXTARGS MOV 


MOVE 
BGT 
CMPB 
BNE 


GETX: CMP5 


R@S3 
R38: 


BNE 
Inc 
ASR 
ASL 
JMP 
eWORD 
eWORD 


GETERAs JMP 
GETERS! JMP 
BRTA8s ,WORD 
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eK ORD 
owORD 
oe LFNOF 
ewORD 
eENDC 


1975 


R3S,R3 
(R3)4,h2 7GET NEXT BYTE IN R2 
GET! sLOOP TILL BYTE IS @ 


(RI), #,RPAR = FCHECK CLOSING *)° 
GETERS 

(Ri) +, #, EOL 7AND ENO@LINE TOKEN 
GETERS 

R3 IMAKE SURE R3 IS EVEN 
R3 

R3 

(R3) 

a 


) 
ERRARG 
ERRSYN 
NUMEXP 
NUMVAR 
STREXP 
SNOSTR 
STRVAR 
PSNOSTR 


§ SUBROUTINE *sTORE? CaLLED BY JSR PC,STORE 


f] R@ POINTS TO 3=WORD ARG REFERENCE 
} SET UP BY GETVAR 
? SAVES THE VALUE OF TRE FAC 
; IN THE SPECIFIED NUMERIC VARIABLE 
STORES MOV RS.R2 FADDRESS VARSAV 
AoD #VARSAYV,R2 
MOV (RO+, (R2)¢ MOVE FROM TABLE TO USER AREA 
MOV (RQ)+,(R2)+ 
MoV (RQ), (Re) 
JSR PC,STOVAR FSTORE IT 


RTS FC 


eIFNDF gNOSTR 


} SUBROUTINE *“SsTORE’ CALLED BY JSR PC,SSTORE 


1 R@ POINTS TO 3=wWORD ARG REFERENCE 
; SET UP BY GETVAR 
; STRING POINTER IS AT THE TOP OF STK 
; SAVES THE STRING AT TOP OF STK 
U IN THE SPECIFIED STRING VARIABLE 
SSTORE:S MOV R5,R2 
ADD #VARSAV,R2 PADDRESS VARSAV 
MoV (RO)+, (R2)+ FMOVE FROM TBL TO USER AREA 
MOV (R@)+, (R2)+ 
MoV (RO), (Re) 
MOV (SP),R3 ISWITCH RETURN & STRING PTR 
MOV 2(5P), (SF) 
MOV R3,2(SP) 
JSR PC, STOSVAR FSTORE STRING 
RTS PC PRETURN 
eENDC HSNOSTR 
eENG 
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I.3.2 “ACC" (BUF) 


Access entire buffer BUF. This command resets all buffer pointers of 
the array BUF to allow full access to it by the RDB and PUTD commands. 
The PUTD pointer is placed at the end of the array and the RDB pointer 
is placed at the beginning. 


Example: 
Allow full access to the array H and the array A(11). 


10 DIM A(25) ,H(20) 

20 CALL "USE" (A(1) ,A(11) ,A(31) ,A,H) 
30 @eeeos 

40 eoos 


100 CALL "ACC" (H) 

110 CALL "ACC"(A(11)) 
120 eeene 

130 seco 


1.3.3 "RDB" (BUF,var) 


Return the next data point from the specified buffer. Returns values 
of 65535>=var>=0 for good data. Bad data (defined as overrun) is 
returned as a minus one, If no data exists yet, a minus 2 will be 
returned. 


When the referenced buffer refers to analog sampling (RTS function), 
the values returned are in the range 4095>=var>=0. 


When the referenced buffer refers to a clocked histogram sampling 
(HIST function), the values returned are in the range 65535>=var>=0. 
These values are either the number of ticks accumulated or the number 
remaining depending on the clock mode. 


When the referenced buffer refers to a Digital I/O operation (DRS 
function), a value between 65535>=var>=0 is returned from the next 
position in the specified buffer. 


Example: 


Assume that the array X has 100 data values previously entered by an 
RTS command, Print out the data making sure that data overrun did not 
occur and that 100 data points were indeed taken. 


100 FOR I=1 TO 100 

110 CALL "RDB" (X,Z) 

120 IF Z >= 0 GO TO 160 

130 IF Z =-2 GO TO 180 

140 PRINT "BAD DATA AT EVENT" ;1I 
.150 GO TO 190 

160 PRINT 2 


170 GO TO 190 
180 PRINT "NO DATA AT EVENT";I 
190 NEXT I 


I.4 MODULE 1 (A/D CONVERSION AND NUMERIC READOUTS) 


I.4.1 "ADC" (chan,var) 


Initiate an A/D conversion from the specified channel (0<=chan<=15), 
wait for it to complete, and return the conversion as a floating point 
result in "var" (0<=var<=4095). The A/D cannot be currently involved 
in a Real-Time Sampling (RTS) operation. 


Example: 


Sample the A/D from channels 4 and 5 and save the results in the 
arrays A4 and A5 respectively. Assume 100 samples are to be taken. 


10 DIM A4(100) ,A5(100) 
20 FOR I=1 TO 100 

30 CALL "ADC" (4,A4(I)) 
40 CALL "ADC" (5,A5 (I) ) 
50 NEXT I 


I.4.2 "RTS" (BUF,sc,nsc,npts ,mode) 


Perform real time buffered/clocked sampling of the A/D. The A/D can 
be enabled in a variety of options depending on the mode specified. 
The normal mode of operation (mode=0) causes the A/D to _ sample 
whenever Schmitt trigger 1 fires. A mode of 2 causes the A/D to 
sample whenever the clock overflows. To enable other options, merely 
add their code number to the mode, The following list describes 
options available (all options are normally disabled): 


Code Option 


+1 Enable burst mode (used only with DMA) 
+2 Enable clock, disable Schmitt trigger 1 
+4 Enable dual sample and hold 

+8 Enable DMA 


The A/D will be started by a clock overflow or the firing of Schmitt 
trigger 1. Pointers are used to determine if good data exists in the 
buffer arrays or if data wraparound occurs. Since data is stored in 
circular buffers (excluding DMA operations), pointers are used to 
ensure that the incoming data rate does not exceed the removal rate. 
Data returned as minus 2 (<2) indicates that data overrun occurred. 
The buffer pointers are reset initially before the sampling operation 
begins. 


A/D channels are sampled on every clock overflow or firing of Schmitt 


trigger 1 with the result stored in consecutive data cells. Data is 
stored in a format identical to that read from the A/D. When a_ clock 
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APPENDIX J 


GT GRAPHICS SUPPORT 


J.1 INTRODUCTION 


BASIC is provided with GT Graphics support for the GT44 and GT40 
Display Processors. The support consists of a collection of routines 
accessible by the CALL statement. These routines allow BASIC programs 
to have complete control of the display processor. 


Points, vectors, text, and graph data may all be combined through 
simple CALL statements. The screen may easily be scaled to any 
coordinates. Portions of the display may be controlled independently 
through use of the subpicture feature. Special graphic routines allow 
the display of an entire array of data by one call statement. The 
area of core that is allocated to the display buffer may be 
dynamically controlled. 


When operating in the RT-il environment, any display may be saved as a 
file on a mass storage device with the exception of graph arrays. 
This file may later be restored which will cause the original display 
to appear on the screen without the BASIC program originally needed to 
create it. 


Support is provided for a real-time clock. The graphics support 
package will link with and support the Laboratory Peripheral System 
support that is also provided with BASIC. 


The hardware required for use of the BASIC GT Graphics support is a 
GT40 or GT44 processor, a VTll display screen, 16K or more of core 
memory, and a user's terminal. In addition to the peripheral 
input/output device needed to support the BASIC system (disk, DECtape, 
cassette, or paper tape), the calis to TIME and TIMR require a 
real-time clock. The core required for the Graphics support itself is 
ee 2.5K in a core resident form and 2.1K in an overlay 
orn. 


The documentation for BASIC with Graphics support is provided in two 
parts the BASIC Manual (BASIC/RT11 Language Reference Manual) and this 
appendix. All information concerning BASIC arithmetic, strings, 
operations, functions, statements, and commands may be found in the 
BASIC Manual. This appendix describes the use of the BASIC calls to 
the GT Graphic routines. A general description of the CALL statement 
may be found in section 8.1 of the BASIC/RT11 Language Reference 
Manual. 


The GT Support is supplied in the BASIC kit in the following files: 
GTB.OBJ Main GT object module 


GTC. OBJ GT object module that may be linked in an overlay 
(otherwise it is linked in core) 


PERVEC.MAC Vector definition source file 
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FTBL.MAC Function table 


BASINT .MAC Interface Module 

RTINT.MAC Interface Module for BASIC/RT11 VOl 
PTSINT.MAC Interface Module for BASIC/PTS VO1 
PERPAR.MAC Parameter file 

GTNLPS .OBJ Module linked with GT when LPS support is not 


also linked 


For instructions to build a load module of BASIC with GT support see 
Section J.3. Software for BASIC/RT11 with GT support that is provided 
on DECtape, cassette and DECpack disk also contains two running ver- 
sions of BASIC: 


BASGT .SAV BASIC with GT support 
BGTLPS .SAV BASIC with GT and LPS support 


BASGT.SAV is a non-overlaying version of BASIC with GT support. 
BGTLPS.SAV is a non-overlaying version of BASIC with GT and LPS support. 
BASGT.SAV is loaded by the following RT-11 monitor command: 


-R BASGT 


To load a version of BASIC with GT and LPS support the following 
command should be given: 


-R BGTLPS 


At this point the standard BASIC initial dialogue will occur. See 
Chapter 1 of the BASIC/RT11 Language Reference Manual for a descrip- 
tion of the initial dialogue. As part of the initial dialogue BASIC 
will print: 


USER FNS LOADED 


This message will be printed whenever BASIC has had GT support linked 
with it. BASIC will terminate the initial dialogue by printing: 


READY 


NOTE 


BASIC with GT support should not be run 
by the RT-11 monitor after GTON, a pro- 
gram supplied with RT-11 (version 1 only), 
has been run. GTON causes RT-11 to print 
all information on the graphic display 
screen and any attempt by BASIC with GT 
support to use the display screen causes 
the computer to halt. If this happens, 
the monitor must be rebooted. To avoid 
this, when GTON has been run, do not run 
BASIC until the monitor has been rebooted 
by either a hardware bootstrap or the 

PIP reboot command. See Section 4.13 of 
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the RT-11 System Reference Manual for a 


description of the PIP command. 


BASIC/ 


RT-11 VO1B with GT support is 
compatible with the RT-11 (version 
2 or later) GT ON monitor command. 


J.1.1 Documentation Conventions 


The following chart describes the documentation conventions used in 
the description of the GT calis in this Appendix. 


J.2 


CONVENTION 


Square Brackets [ ] 


Lower case letter or 
lower case letter 
followed by a digit 
(a,b,x0,yl) 


Lower case letter 
followed by a dollar 
sign, (aS 7x$) 


Upper case letter 
(A,;B,X,Y) 


Y axis 


X axis 


Optional arguments are enclosed. 


Value to be supplied by user ~-- may be 
any valid arithmetic expression. 


String to be supplied by user may be 
string constant (enclosed in quotes) or 
variable (AS). 


Numeric variable whose value will be 
determined by call or an array name. 


The vertical axis 


The horizontal axis 


DISPLAY PROCESSOR CONTROL ROUTINES - CALL SUMMARY 


BASIC programs can control the GT44 display processor by the use of 
the twenty-nine routines that are supplied with GT support for BASIC. 
A complete description of the BASIC call statement may be found in 
section 8.1 of the BASIC/RT11 Language Reference Manual. 


The format of the CALL statement is: 


CALL "name" 
or 

LET AS="name" 

CALL (A$) 


(argument list) 


(argument list) 


The following chart summarizes the names, argument lists, and effects 
of the graphic calls supplied with the GT graphic support. 


Call 


AGET 
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Argument List 


(A(i), 2) 
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Effect 


Unscales element i of the graphic 
array A and stores in 2. 


Call 


APUT 


DCNT 


DFIX (n) 


DON (t) 


DSAV 


DSTP 


ERAS 


ESUB 


FIGR 


Argument List 


(x,y [,1,i,f,t]) 


(A (i), b) 


[(" [dev:]filname[.ext]")] 


[(t)] 


(A{,1,i,f£,t]) 


Effect 


Positions beam at point 
represented by (x,y) after 
scaling. Optional changing of 
1,i,f, and t parameters. 1 is 
light pen sensitivity, i is 
intensity, £ is flash, and t is 
line type. 


Assigns element i of the graphic 
array A the scaled value of b. 
Dynamically changes display of 
array A. 


Restores to the screen display 
stopped by call to DSTP. 


Eliminates old display buffer if 
it exists and creates a display 
buffer of n words. Closes all 
open BASIC files. 


furns on subpicture with tag t 
that had been turned off with a 
call to OFF. 


Compacts the display file by 
eliminating references to erased 
subpictures and graphics arrays 
and if a file is specified 
creates a copy of the graphic 
display on a file on DECtape or 
disk. Display may then be 
restored to the screen at any 
time by a call to RSTR. DK: is 
the default device. DPY is the 
default extension. 


Stops display of the entire 
display buffer. Display may be 
restored by a call to DCNT. 


Erases subpicture with the tag. 
If t is not specified this call 
erases the tracking object 
created by a call to TRAK. 


Terminates subpicture created by 
a call to  SUBP (with one 
argument). 


Creates vectors from array A_ to 
form figure. See section J.2.8 
concerning the cautions required 
when using graphic array calls. 
Optional changing of 1,i,f, and t 
parameters. 


HOW TO OBTAIN SOFTWARE INFORMATION 


SOFTWARE NEWSLETTERS, MAILING LIST 


The Software Communications Group, located at corporate headquarters in 
Maynard, publishes software newsletters for the various DIGITAL products. 
Newsletters are published monthly, and keep the user informed about cus- 
tomer software problems and solutions, new software products, documenta- 
tion corrections, as well as programming notes and techniques. 


There are two similar levels of service: 


. The Software Dispatch 
. The Digital Software News 


The Software Dispatch is part of the Software Maintenance Service. This 
service applies to the following software products: 
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PDP-S/15 
RSX-11D 

DOS /BATCH 
RSTS-E 
DECsystem~10 


A Digital Software News for the PDP-11 and a Digital Software News for 
the PDP-8/12 are available to any customer who has purchased PDP-11 or 
PDP-8/12 software. 


A collection of existing problems and solutions for a given software 
system is published periodically. A customer receives this publication 
with his. initial software kit with the delivery of his system. This 
collection would be either a Software Dispatch Review or Software Per- 
formance Summary depending on the system ordered. 


A mailing list of users who receive software newsletters is also main- 
tained by Software Communications. Users must sign-up for the news- 
letter they desire. This can be done by either completing the form sup- 
plied with the Review or Summary or by writing to: 


Software Communications 
P.O. Box F : 
Maynard, Massachusetts 01754 


SOFTWARE PROBLEMS 


Questions or problems relating to DIGITAL's software should be reported 
as follows: 


North and South American Submitters: 


Upon completion of Software Performance Report (SPR) form remove last 
copy and send remainder to: 


Software Communications 
P.O. Box F 
Maynard, Massachusetts 01754 


The acknowledgement copy will be returned along with a blank SPR form 
upon receipt. The acknowledgement will contain a DIGITAL assigned SPR 
number. The SPR number or the preprinted number should be referenced in 
any future correspondence. Additional SPR forms may be obtained from 
the above address. 


All International Submitters: 


Upon completion of the SPR form, reserve the last copy and send the re- 
mainder to the SPR Center in the nearest DIGITAL office. SPR forms are 
also available from our SPR Centers. 


PROGRAMS AND MANUALS 


Software and manuals should be ordered by title and order number. In the 
United States, send orders to the nearest distribution center. 


Digital Equipment Corporation Digital Equipment Corporation 


Software Distribution Center Software Distribution Center 
146 Main Street 1400 Terra Bella 
Maynard, Massachusetts 01754 Mountain View, California 94043 


Outside of the United States, orders should be directed to the nearest 
Digital Field Sales Office or representative. 


USERS SOCIETY 


DECUS, Digital Equipment Computers Users Society, maintains a user ex- 
change center for user-written programs and technical application infor- 
mation. The Library contains approximately 1,900 programs for all 
DIGITAL computer lines. Executive routines, editors, debuggers, special 
functions, games, maintenance and various other classes of programs are 
available. 


DECUS Program Library Catalogs are routinely updated and contain lists 
and abstracts of all programs according to computer line: 


. PDP-8, FOCAL-8, BASIC-8, PDP-12 
7 PDP-7/9, 9, 15 

. PDP-11, RSTS-11 

. PDP-6/10, 10 


Forms and information on acquiring and submitting programs to the DECUS 
Library may be obtained from the DECUS office. 


In addition to the catalogs, DECUS also publishes the following: 


DECUSCOPE ~The Society's technical newsletter, published bi-monthly, 
aimed at facilitating the interchange of technical in- 
formation among users of DIGITAL computers and at dis- 
seminating news items concerning the Society. Circula- 
tion reached 19,000 in May, 1974. 


PROCEEDINGS OF -Contains technical papers presented at DECUS Symposia 


THE DIGITAL held twice a year in the United States, once a year 
EQUIPMENT USERS in Europe, Australia, and Canada. 

SOCIETY 

MINUTES OF THE -A report of the DECsystem-10 sessions held at the two 
DECsystem-10 United States DECUS Symposia. 

SESSIONS 

COPY-N-Mail -A monthly mailed communique among DECsystem-10 users. 
LUG/SIG -Mailing of Local User Group (LUG) and Special Interest 


Group (SIG) communique, aimed at providing closer 
communication among users of a specific product or 
application. 


Further information on the DECUS Library, publications, and other DECUS 
activities is available from the DECUS offices listed below: 


DECUS DECUS EUROPE 

Digital Equipment Corporation Digital Equipment Corp. International 
146 Main Street (Europe) 

Maynard, Massachusetts 01754 P.O. Box 340 


1211 Geneva 26 
Switzerland 
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RT-11 Language Reference Manual 
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READER'S COMMENTS 


NOTE: This form is for document comments only. Problems 
with software should be reported on a Software 
Preblem Repert (SPR) form (see the HOW TO OBTAIN 
SOFTWARE INFORMATION page). 


Did you find errors in this manual? If so, specify by page. 




















Did you find this manual understandable, usable, and well-organized? 
Please make suggestions for improvement. 




















Is there sufficient documentation on associated system programs 
required for use of the software described in this manual? If not, 
what material is missing and where. should it be placed? 











Please indicate the type of user/reader that you most nearly represent. 


Assembly language programmer 
Higher-level language programmer 
Occasional programmer (experienced) 
User with little programming experience 
Student programmer 


OOO0O00O0 


Non-programmer interested in computer concepts and capabilities 


Nemes Dt 
Organization 
Street 
CRY ae State Ap Code 
or 
Country 


If you do not require a written reply, please check here. ia} 
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